home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / lfw_25.lsp < prev    next >
Text File  |  1998-03-15  |  29KB  |  718 lines
  1. ;........  Laufwagen 25                                                                                            
  2.  
  3.  
  4. (defun C:LFW-25V1 (/ P1 P2 P10 P11 P12 P13 P14 P15 P16 P17 L PWR PLR PWL PLL
  5.                      E1 E2 E3 E4 E5 E6 BName Wi KK1 KK2)
  6.    (EAITmsg "mb_mld14" "\n\n" "021" "\n")             ;LAUFWAGEN 25
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (setvar "ORTHOMODE" 0)
  10.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "017") " " (EAITmg "mb_mld10" "015") " ")) ;  1. Punkt (Return = relativ):
  11.    (setq P1 (getpoint))
  12.    (if (= P1 nil)(setq P1 (EAITrpt)))
  13.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "018") " " (EAITmg "mb_mld10" "015") " "))       ;2. Punkt (Return = relativ):
  14.    (setq P2 (getpoint P1))
  15.    (if (= P2 nil)(setq P2 (EAITrpt)))
  16.    (setq Wi (angle P2 P1)                                             ;Winkel zwischen Pick-pkt.
  17.          PWR (polar P1 (- Wi (EAITgib 90)) 20)                            ;E-Pkt Wellenklemmprofil rechts
  18.          PLR (polar PWR Wi 18)                                        ;E-Pkt Lagereinheit rechts
  19.          PWL (polar P2 (- Wi (EAITgib 90)) 20)                            ;E-Pkt Wellenklemmprofil links
  20.          PLL (polar PWL (+ Wi (EAITgib 180)) 18)                          ;E-Pkt Lagereinheit links
  21.          P10 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 20)              ;1.Pkt 1.Profillinie, E-pkt Abdeckkappe
  22.          P11 (polar P10 (+ Wi (EAITgib 90)) 40)                           ;1.Pkt 2.Profillinie
  23.          P12 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 20) ;2.Pkt 1.Profillinie, E-pkt Abdeckkappe
  24.          P13 (polar P12 (+ Wi (EAITgib 90)) 40)                           ;2.Pkt 2.Profillinie
  25.          P14 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 36)
  26.          P15 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 36)
  27.          P16 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 44)
  28.          P17 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 44)
  29.          L   (atof (rtos (distance P10 P12) 2 1))                     ;Laenge des Profils
  30.          )
  31.    (setvar "ORTHOMODE" 0)
  32.    (setvar "OSMODE" 0)
  33.    (command EAITege (strcat EAITpfn "35002q1") PWR "" "" (EAITbig Wi)                 ;Wellenlklemmprofil
  34.             EAITege (strcat EAITpfn "35012v2") PLR "" "" (- (EAITbig Wi) 90))         ;Lagereinheit zentrisch
  35.    (setq kk1 (entlast))
  36.    (command EAITege (strcat EAITpfn "35002q1") PWL "" "" (+ (EAITbig Wi) 180)         ;Wellenlklemmprofil
  37.             EAITege (strcat EAITpfn "35011v2") PLL "" "" (+ (EAITbig Wi) 90))         ;Lagereinheit exzentrisch 
  38.    (setq kk2 (entlast))          
  39.    
  40.    (command EAITlay EAITlse "EAIT50" "" 
  41.             EAITlin P10 P12 "")                                       ;1. Profillenie
  42.    (setq E1 (entlast))
  43.    (command EAITlin P12 P13 P11 P10 ""
  44.             EAITlin P14 P15 ""
  45.             EAITlin P16 P17 "" 
  46.    )
  47.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  48.          E6 (entnext E5))
  49.    
  50.    (setq BName (EAITbnr))   
  51.    (command EAITblo BName P10 E1 E2 E3 E4 E5 E6 ""
  52.             EAITege BName P10 "" "" ""
  53.             EAITege (strcat EAITpfn "02602s2") P10 "" "" (+ (EAITbig Wi)90)
  54.             EAITege (strcat EAITpfn "02602s2") P13 "" ""  (- (EAITbig Wi)90)
  55.    )
  56.  
  57.    (command EAITbks EAITbel kk1)
  58.    
  59.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  60.    (command EAITege (strcat EAITpfn "EAITinfo") '(12 -12) "" "" ""
  61.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  62.    )
  63.    (EAITDBL "0035009")    ;Welle 25
  64.    (command EAITege (strcat EAITpfn "EAITinfo") '(6 6) "" "" ""
  65.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  66.    )
  67.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  68.    (command EAITege (strcat EAITpfn "EAITinfo") '(2 -25) "" "" ""
  69.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  70.    )
  71.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  72.    (command EAITege (strcat EAITpfn "EAITinfo") '(0 85) "" "" ""
  73.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  74.    )
  75.    (EAITDBL "0035012")    ;Lagereinheit 25z
  76.    (command EAITege (strcat EAITpfn "EAITinfo") '(30 60) "" "" ""
  77.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  78.    )
  79.    (EAITDBL "0002604")    ;Profil 80x40
  80.    (command EAITege (strcat EAITpfn "EAITinfo") '(-73 42) "" "" "" 
  81.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  82.    )
  83.    (EAITDBL "0002602")    ;Abdeckkappe 80x40
  84.    (command EAITege (strcat EAITpfn "EAITinfo") '(-73 100) "" "" "" 
  85.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  86.    )
  87.    (command EAITbks EAITbel kk2)                  
  88.  
  89.    (EAITDBL "0035011")    ;Lagereinheit 25e
  90.    (command EAITege (strcat EAITpfn "EAITinfo") '(-30 60) "" "" ""
  91.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  92.    )
  93.    (command EAITbks EAITbvo)
  94.    (command EAITbks EAITbvo)
  95.    (EAITvarz2)
  96.    (princ)
  97. )
  98.  
  99.  
  100. (defun C:LFW-25S1 (/ A NL P1 P2 P3 P10 P11 P12 Wi WL Pfang L L1 LOE1
  101.                      E1 E2 E3 E4 E5 E6)
  102.    (EAITmsg "mb_mld14" "\n\n" "021" "\n")             ;LAUFWAGEN 25
  103.    (EAITvari)
  104.    (EAITvars)
  105.    (setvar "ORTHOMODE" 0)
  106.    (setvar "OSMODE" 0)
  107.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  108.    (setq NL (entsel " "))   
  109.    (EAITmsg "mb_mld14" "\n  " "019" ": ")             ;Profil-Außenlinie:
  110.    (setq P1 (entsel " "))
  111.    (setq P1 (cadr P1))
  112.    (EAITbpt nil nil (strcat " " (EAITmg "mb_mld14" "020") " " (EAITmg "mb_mld10" "015")" :")) ;Punkt auf Nutlinie: (Return = relativ):
  113.    (setq P2 (getpoint))
  114.    
  115.    (initget 1)
  116.    (EAITmsg "mb_mld14" "\n  " "023" " : ")             ;Achsabstand
  117.    (setq A (getdist))
  118.    (while (< A 150)
  119.    (EAITmsg "mb_mld14" "\n  " "024" " ! ")             ;Achsabstand soll >= 150 sein
  120.    (setq A (getdist))
  121.    );while
  122.    (setq A (atof (rtos A 2 0))
  123.          A   (/ A 2))         
  124.    (setvar "ORTHOMODE" 0)
  125.    (setvar "OSMODE" 0)
  126.    (setvar "APERTURE" 4)
  127.    (setq P10 (osnap P1 EAITofend)
  128.          P11 (osnap P1 EAITofmit)
  129.          WL  (angle P10 P11)
  130.       P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil)
  131.       P3  (polar P1 (+ (angle P1 P2) Pi) -20)
  132.    )        
  133.    (command EAITbks EAITbur P3
  134.             EAITbks EAITbz P2 P1
  135.    );BKS setzen
  136.  
  137.    (setq P1 '(20 0)
  138.          P2 '(0 0)
  139.       Pfang '(20 11.875)
  140.       P10 (osnap Pfang EAITofend)
  141.          P11 (osnap Pfang EAITofmit)
  142.       L   (* (distance P10 P11) 2)
  143.       L1  (distance P1 P10)
  144.       WL  (angle P10 P11)        
  145.           P12 (polar P10 WL L)
  146.          Wi  (angle P12 P11)
  147.    )
  148.    
  149.    (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
  150.  
  151.        (command EAITzom EAITzomi '(0 0 0) '(20.5 0) '(-66.5 0))
  152.        (if (/= (ssget '(4 2)) nil)
  153.            (command EAITloes '(4 2) "")
  154.     )
  155.        (if (/= (ssget '(-4 2)) nil)
  156.          (command EAITloes '(-4 2) "")
  157.     )
  158.        (if (/= (ssget '(-36 2)) nil)
  159.          (command EAITloes '(-36 2) "")
  160.     )
  161.     (if (/= (ssget '(20 2)) nil)
  162.          (command EAITloes '(20 2) "")
  163.     )
  164.     (command EAITzom EAITzov)
  165.  
  166.    
  167.    (command EAITege (strcat EAITpfn "35012d1") (list 0 A ) "" "" -90
  168.             EAITege (strcat EAITpfn "02602v2") (list 40 (+ A 40)) "" "" -90
  169.             EAITege (strcat EAITpfn "35012d1") (list 0 (- A)) "" "" -90
  170.             EAITege (strcat EAITpfn "02602v2") (list 40 (+(- A) 40)) "" "" -90                    
  171.             EAITlay EAITlse "EAIT50" ""
  172.    )
  173.    
  174.    (if (not EAITpro8)(load (strcat EAITpfn "EAITpro8")))
  175.    (EAITpro8 "40x40" (list 40 (- A 40)) (-(* A 2) 80) (-(/ Pi 2)) (-(/ Pi 2)))
  176.       
  177.           
  178. ;------Linien des Profils neu zeichnen
  179.  
  180.    (command EAITlin P10 (polar P10 WL (- L1 (+ A 60))) "")
  181.    (setq E1 (entlast))
  182.    (command EAITlin (list 20 (- A 60)) (list 20 (+(- A)60))"" 
  183.             EAITlin P12 (polar P12 Wi (- (- L L1) (+ A 60))) "")
  184.    (setq E2 (entnext E1) E3 (entnext E2))
  185.    (command EAITkop E1 E2 E3 "" '(-3.5 0) ""
  186.             EAITkop EAITwvo "" '(-7.5 0) ""
  187.          EAITkop EAITwvo "" '(-32.5 0) ""
  188.          EAITkop EAITwvo "" '(-36.5 0) ""
  189.    )
  190.    (if (/= LOE1 nil) (command EAITkop EAITwvo "" '(-40 0) "")
  191.                      (command EAITkop EAITwvo "" '(-56 0) ""))
  192.    (command EAITlay EAITlse "EAITstpg" ""
  193.             EAITlin (polar (list 0 (cadr P12)) WL 5)
  194.              (polar (list 0 (cadr P10)) Wi 5) ""
  195.    )
  196.                  
  197.    (setq L (abs (rtos L 2 1)))
  198.  
  199.    (EAITDBL "0035012")    ;Lagereinheit 25z
  200.    (command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 42)) "" "" ""
  201.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  202.    )
  203.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  204.    (command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 55)) "" "" ""
  205.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  206.    )
  207.    (EAITDBL "0026523")    ;Profil 160x40
  208.    (command EAITege (strcat EAITpfn "EAITinfo") (list 76 (- A 44)) "" "" ""
  209.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
  210.    )
  211.    (EAITDBL "0002602")    ;Abdeckkappe 80x40
  212.    (command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 32)) "" "" ""
  213.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  214.    )
  215.    (EAITDBL "0002604")    ;Profil 80x40
  216.    (command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 22)) "" "" ""
  217.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  218.    )
  219.    (EAITDBL "0035009")    ;Welle 25
  220.    (command EAITege (strcat EAITpfn "EAITinfo") (list 8 (+ A 65)) "" "" ""
  221.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  222.    )
  223.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  224.    (command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 65)) "" "" ""
  225.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  226.    )
  227.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  228.    (command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 80)) "" "" ""
  229.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  230.    )
  231.   (command EAITbks EAITbvo )
  232.   (command EAITbks EAITbvo )
  233.   (EAITvarz2)
  234.   (princ)
  235. );defun
  236.  
  237.  
  238.  
  239.  
  240. (defun C:LFW-25D1 (/ A B D1 D2 D3 D4 E1 E2 E3 E4 E5 E6 E7 E8 E9 L L1 L2 L3 L4
  241.                      P1 P2 P10 P11 P12 P13 P14 P15 P16 Pfang PL1 PL2 WL Wi)
  242.    (EAITmsg "mb_mld14" "\n\n" "021" "\n")             ;LAUFWAGEN 25
  243.    (EAITvari)
  244.    (EAITvars)
  245.    (setvar "ORTHOMODE" 0)
  246.    (setvar "OSMODE" 0)
  247.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  248.    (setq P1 (entsel " "))
  249.    (setq P1 (cadr P1))   
  250.    (EAITbpt nil nil (strcat "  " (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015") ": " )) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  251.    (setq P2 (getpoint))
  252.    
  253.    (initget 1)
  254.    (EAITmsg "mb_mld14" "\n  " "023" " : ")             ;Achsabstand
  255.    (setq A (getdist))
  256.    (while (< A 150)
  257.    (EAITmsg "mb_mld14" "\n  " "024" " ! ")             ;Achsabstand soll >= 150 sein
  258.    (setq A (getdist))
  259.    );while
  260.    (setq A (atof (rtos A 2 0))
  261.          A   (/ A 2))      
  262.            
  263.    (setvar "ORTHOMODE" 0)
  264.    (setvar "OSMODE" 0)
  265.    (setvar "APERTURE" 4)
  266.    (setq P10 (osnap P1 EAITofend)                            ;Endpunkt Außenlinie
  267.          P11 (osnap P1 EAITofmit)                            ;Mitte Außenlinie
  268.          WL  (angle P10 P11)                             ;Winkel Außenlinie
  269.       P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
  270.          D1  (distance P1 P2)                             ;Abstand Profilaußenlinien        
  271.    )        
  272.    
  273.    (command EAITbks EAITbur P2
  274.             EAITbks EAITbz P2 P1)
  275.    (setq P1 (list D1 0)
  276.          P2 '(0 0)
  277.       Pfang (list D1 11.875)
  278.       P10 (osnap Pfang EAITofend)                          ;1.Endpkt Außenlinie
  279.          P11 (osnap Pfang EAITofmit)                          ;Mitte Außenlinie
  280.       L   (* (distance P10 P11) 2)                     ;laenge Außenlinie
  281.       L1  (distance P1 P10)                            ;Laenge von P1 zu AL
  282.       L2  (- L L1) 
  283.       L3  (- L1 (+ A 60))
  284.       L4  (- L2 (+ A 60))
  285.       WL  (angle P10 P11)                                ;Winkel AL
  286.           P12 (polar P10 WL L)                             ;2. Endpkt AL
  287.          Wi  (angle P12 P11)                              ;Winkel AL um 180°
  288.          D2  (+ D1 32.5)
  289.       D3  (+ D1 24.5)
  290.       D4  (+ D1 18)
  291.       P13 (list D2 (cadr P10))
  292.       P14 (list D2 (cadr P12))
  293.       P15 (polar P13 WL L3)
  294.       P16 (polar P14 Wi L4)
  295.       PL1 (list D2 (- A 60))
  296.       PL2 (list D2 (+ (- A) 60))
  297.    )
  298.  
  299. ;-------------Einfügen der Lagereinheiten          
  300.  
  301.    (command EAITege (strcat EAITpfn "35012s1") (list D1 A ) "" "" -90
  302.             EAITege (strcat EAITpfn "35012s1") (list D1 (- A)) "" "" -90
  303.          EAITege (strcat EAITpfn "35011s1") (list 0 A ) "" "" 90
  304.          EAITege (strcat EAITpfn "35011s1") (list 0 (- A)) "" "" 90
  305.    )
  306.    
  307. ;-------------Welle u. Klemmprofil zeichnen   
  308.  
  309.    (command EAITlay EAITlse "EAIT50" ""
  310.             EAITlin P10 P13 ""
  311.    )
  312.    (setq E1 (entlast))
  313.    (command EAITlin P13 P15 ""
  314.             EAITlin PL1 PL2 ""
  315.             EAITlin P12 P14 P16 ""
  316.          EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
  317.          EAITlin (list D3 (cadr PL1))(list D3 (cadr PL2)) ""
  318.          EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
  319.    )
  320.    (setq E2 (entnext E1)E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  321.          E6 (entnext E5) E7 (entnext E6) E8 (entnext E7)
  322.    )
  323.   
  324.    (command EAITlay EAITlse "EAITstpg" ""
  325.             EAITlin (polar (list D4 (cadr P10)) Wi 5)
  326.                  (polar (list D4 (cadr P12)) WL 5) ""
  327.    )                
  328.    (setq E9 (entnext E8))
  329.    (command EAITspi E1 E2 E3 E4 E5 E6 E7 E8 E9 "" 
  330.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  331.    )
  332.  
  333. ;-----------Zeichnen des 160x40 wenn sichtbar
  334.    
  335.    (command EAITlay EAITlse "EAIT50" "")   
  336.    (cond 
  337.           ((equal D1 80 0.0001)
  338.            (command EAITlin (list (+ D1 40) (cadr PL1))(list (+ D1 40) (cadr PL2)) "")
  339.              (setq E1 (entlast))
  340.               (command EAITspi E1 "" 
  341.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  342.            )   
  343.          )                                ;1. COND-Fall
  344.         
  345.          ((equal D1 40 0.0001)
  346.           (command EAITlin (list (+ D1 36) (cadr PL1))(list (+ D1 36) (cadr PL2)) "")
  347.               (setq E1 (entlast))
  348.          (command EAITlin (list (+ D1 44) (cadr PL1))(list (+ D1 44) (cadr PL2)) ""
  349.                     EAITlin (list (+ D1 60) (cadr PL1))(list (+ D1 60) (cadr PL2)) ""
  350.           )
  351.               (setq E2 (entnext E1) E3 (entnext E2))
  352.               (command EAITspi E1 E2 E3 "" 
  353.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  354.            )
  355.         )                                ;2. COND-Fall
  356.    );cond
  357.           
  358.           
  359. ;------------Einfuegen der Info-Pkt.
  360.           
  361.    (setq L (abs (rtos L 2 1))
  362.          B (abs (rtos (+ D1 232) 2 1))
  363.    )
  364.  
  365.  
  366.    (EAITDBL "0035012")    ;Lagereinheit 25z
  367.    (command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
  368.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  369.    )
  370.    (EAITDBL "0035011")    ;Lagereinheit 25e
  371.    (command EAITege (strcat AI0T$pfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
  372.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  373.    )
  374.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  375.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
  376.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  377.    )
  378.    (EAITDBL "0026523")    ;Profil 160x40
  379.    (command EAITege (strcat EAITpfn "EAITinfo") '(31 10) "" "" ""
  380.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
  381.    )
  382.    (EAITDBL "0002602")    ;Abdeckkappe 80x40
  383.    (command EAITege (strcat EAITpfn "EAITinfo") (list 30 (- A 44)) "" "" ""
  384.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  385.    )
  386.    (EAITDBL "0002604")    ;Profil 80x40
  387.    (command EAITege (strcat EAITpfn "EAITinfo") (list 35 (- A 44)) "" "" ""
  388.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
  389.    )
  390.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  391.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
  392.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  393.    )
  394.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  395.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
  396.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  397.    )
  398.    (EAITDBL "0035009")    ;Welle 25
  399.    (command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
  400.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  401.    )
  402.   (command EAITbks EAITbvo )
  403.   (command EAITbks EAITbvo )
  404.   (EAITvarz2)
  405.   (princ)
  406.   (setq Pfang nil PL1 nil PL2 nil WL nil Wi nil)
  407.  
  408. );defun
  409.  
  410.  
  411. (defun C:LFW-25D2 (/ A B D1 D2 D3 D4 E1 E2 ELOE L Li L1 L2 L3 L4 LP1 LP2 LP3
  412.                      N NL P1 P2 Pfang PL1 PL2 SS1 WL Wi)
  413.    (EAITmsg "mb_mld14" "\n\n" "021" "\n")             ;LAUFWAGEN 25
  414.    (EAITvari)
  415.    (EAITvars)
  416.    (setvar "ORTHOMODE" 0)
  417.    (setvar "OSMODE" 0)
  418.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  419.    (setq NL (entsel " "))   
  420.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  421.    (setq P1 (entsel " "))
  422.    (setq P1 (cadr P1))   
  423.    (EAITbpt nil nil (strcat (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015"))) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  424.    (setq P2 (getpoint))   
  425.    
  426.    (initget 1)
  427.    (EAITmsg "mb_mld14" "\n  " "023" " : ")             ;Achsabstand
  428.    (setq A (getdist))
  429.    (while (< A 150)
  430.    (EAITmsg "mb_mld14" "\n  " "024" " ! ")             ;Achsabstand soll >= 150 sein
  431.    (setq A (getdist))
  432.    );while
  433.    (setq A (atof (rtos A 2 0))
  434.          A   (/ A 2))      
  435.            
  436.    (setvar "ORTHOMODE" 0)
  437.    (setvar "OSMODE" 0)
  438.    (setvar "APERTURE" 4)
  439.    (setq P10 (osnap P1 EAITofend)                            ;Endpunkt Außenlinie
  440.          P11 (osnap P1 EAITofmit)                            ;Mitte Außenlinie
  441.          WL  (angle P10 P11)                             ;Winkel Außenlinie
  442.       P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
  443.          D1  (distance P1 P2)                             ;Abstand Profilaußenlinien        
  444.    )        
  445.    
  446.    (command EAITbks EAITbur P2
  447.             EAITbks EAITbz P2 P1)
  448.           
  449.    (setq P1 (list D1 0)
  450.          P2 '(0 0)
  451.          Pfang (list D1 11.875)
  452.       P10 (osnap Pfang EAITofend)                          ;1.Endpkt Außenlinie
  453.          P11 (osnap Pfang EAITofmit)                          ;Mitte Außenlinie
  454.       L   (* (distance P10 P11) 2)                     ;laenge Außenlinie
  455.       L1  (distance P1 P10)                            ;Laenge von P1 zu AL
  456.       L2  (- L L1) 
  457.       L3  (- L1 (+ A 60))
  458.       L4  (- L2 (+ A 60))
  459.       LP1 (+ D1 (* 116 2))                             ;L Profil 80x40
  460.       LP2 (- (* A 2) 80)                                     ;L Profil 160x40
  461.       LP3 (/ (- LP1 160) 2)                            ;L Ende Pro.80x40 - Pos Pro.160x40
  462.       WL  (angle P10 P11)                                ;Winkel AL
  463.           P12 (polar P10 WL L)                             ;2. Endpkt AL
  464.          Wi  (angle P12 P11)                              ;Winkel AL um 180°
  465.          D2  (+ D1 32.5)
  466.       D3  (+ D1 24.5)
  467.       D4  (+ D1 18)
  468.       P13 (list D2 (cadr P10))
  469.       P14 (list D2 (cadr P12))
  470.       P15 (polar P13 WL L3)
  471.       P16 (polar P14 Wi L4)
  472.       P17 (list -116 (- A 40))
  473.       P18 (list -116 (- (- A) 40))
  474.       P19 (polar P17 0 LP3)
  475.       PL1 (list D2 (- A 60))
  476.       PL2 (list D2 (+ (- A) 60))
  477.         
  478.    )
  479.    
  480. ;-------------Altes Traegerprofil löschen
  481.  
  482.    (if (OR (equal D1 40 0.0001) (equal D1 80 0.0001) (equal D1 160 0.0001) )
  483.         (progn (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
  484.                (setq ELOE (ssget EAITwkr '(-0.5 0.5)(polar P1 (/ Pi 4) 1)))
  485.                (command EAITloes ELOE "")
  486.         );progn        
  487.    );if
  488.    
  489. ;-------------Neues Traegerprofil zeichnen
  490.  
  491.  
  492.    (command EAITlay EAITlse "EAIT50" ""
  493.             EAITlin P10 (polar P10 WL (+ L3 20)) ""
  494.    )
  495.    (setq E1 (entlast))
  496.    (command EAITlin P12 (polar P12 Wi (+ L4 20)) "")
  497.    (setq SS1 (EAITSS E1))
  498.    
  499.    (cond ( (equal D1 40 0.0001)
  500.               (setq LI '(16 24 40))
  501.          )
  502.         ( (equal D1 80 0.0001)
  503.               (setq LI '(16 24 56 64 80))
  504.          )
  505.         ( (equal D1 160 0.0001)
  506.               (setq LI '(16 24 56 64 96 104 136 144 160))
  507.          )
  508.         (T  (setq LI (list D1))) 
  509.    );cond
  510.    
  511.    (foreach N LI
  512.        (command EAITkop SS1 "" (list (- N) 0) "")
  513.    );foreach
  514.    
  515.       
  516.    
  517. ;-------------Profile zeichnen
  518.  
  519.    (if (not EAITpro8)(load (strcat EAITpfn "EAITpro8")))
  520.    (EAITpro8 "80x40" P17 LP1 0 0)
  521.    (EAITpro8 "80x40" P18 LP1 0 0)
  522.    (EAITpro8 "160x40" P19 LP2 (-(/ Pi 2)) (-(/ Pi 2)) )   
  523.    
  524.    
  525. ;-------------Welle u. Klemmprofil zeichnen   
  526.  
  527.    (command EAITlin P10 P13 "")
  528.    (setq E1 (entlast))
  529.    (command EAITlin P13 P15 ""
  530.             EAITlin P12 P14 P16 ""
  531.          EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
  532.          EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
  533.             EAITlay EAITlse "EAITstpg" ""
  534.             EAITlin (polar (list D4 (cadr P10)) Wi 5)
  535.              (polar (list D4 (cadr P12)) WL 5) ""
  536.    )                
  537.  
  538.    (setq SS1 (EAITSS E1))
  539.    
  540.    (command EAITspi SS1 "" 
  541.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  542.    )
  543.    (if (>= D1 160)
  544.        (progn
  545.          (command EAITlay EAITlse "EAIT50" ""
  546.                EAITlin PL1 PL2 "")
  547.         (setq E1 (entlast))           
  548.         (command EAITlin (list D3 (cadr PL1))(list D3 (cadr PL2)) "")
  549.            (setq SS1 (EAITSS E1))
  550.         (command EAITspi SS1 "" 
  551.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  552.         )              
  553.       );progn  
  554.    );if
  555.  
  556. ;------------Zeichnen der Lagereinheiten   
  557.  
  558.    (command EAITbks EAITbur (list 0 A))
  559.    (command EAITlay EAITlse "EAIT50" ""    
  560.             EAITlin '(-2 40) '(-2 56) ""
  561.    )         
  562.    (setq E1 (entlast)) 
  563.    (command EAITbog '(-2 56) EAITbmi '(-6 56) EAITbwi 90
  564.             EAITlin '(-6 60) '(-116 60) ""
  565.          EAITbog '(-116 60) EAITbmi '(-116 56) EAITbwi 90
  566.          EAITlin '(-120 56) '(-120 -56) ""
  567.          EAITbog '(-120 -56) EAITbmi '(-116 -56) EAITbwi 90
  568.          EAITlin '(-2 50) '(-120 50) ""   
  569.          EAITlin '(-16 40) '(-16 50) ""
  570.             EAITkop EAITwle "" '(-8 0) ""
  571.          EAITkop EAITwvo "" '(-40 0) ""
  572.          EAITkop EAITwvo "" '(-48 0) ""
  573.          EAITkop EAITwvo "" '(-80 0) ""
  574.          EAITkop EAITwvo "" '(-88 0) ""
  575.    )
  576.    
  577.    (cond  ( (OR (equal D1 40 0.0001)(equal D1 80 0.0001))
  578.            (command EAITlin '(-116 -60) (polar '(-116 -60) 0 LP3) ""    
  579.                  EAITlin '(-120 -50) (polar '(-120 -50) 0 (+ LP3 4)) ""
  580.                  EAITlin '(-104 -40) '(-104 -50) ""
  581.         )    
  582.         (setq E2 (entlast))
  583.            (command EAITkop EAITwle "" '(8 0) ""
  584.                  EAITkop EAITwvo "" '(40 0) ""
  585.                  EAITlay EAITlse "EAITstpg" ""
  586.                     EAITlin '(-33 0) '(-93 0) ""
  587.                  EAITlin '(-63 30)'(-63 -30) ""
  588.            )
  589.         (setq SS1 (EAITSS E1))     
  590.         (if (equal D1 80 0.0001)
  591.                (progn (command EAITkop E2 "" '(48 0) ""
  592.                              EAITlay EAITlse "EAITstpg" ""
  593.                                   EAITlin '(-33 0) '(-93 0) ""
  594.                                  EAITlin '(-63 30)'(-63 -30) ""
  595.                          )
  596.                          (setq SS1 (EAITSS E1))
  597.                   );progn
  598.         );if
  599.                  
  600.          
  601.        );1. COND-Fall
  602.        
  603.           ( (>= D1 160)
  604.            (command EAITlin '(-116 -60) '(-6 -60) ""
  605.                 EAITbog '(-6 -60) EAITbmi '(-6 -56) EAITbwi 90
  606.             EAITlin '(-2 -56) '(-2 -40) ""
  607.             EAITlin '(-120 -50) '(-2 -50) ""
  608.             EAITlin '(-104 -40) '(-104 -50) ""
  609.                     EAITkop EAITwle "" '(8 0) ""
  610.                        EAITkop EAITwvo "" '(40 0) ""
  611.                     EAITkop EAITwvo "" '(48 0) ""
  612.             EAITkop EAITwvo "" '(80 0) ""
  613.             EAITkop EAITwvo "" '(88 0) ""
  614.                        EAITlay EAITlse "EAITstpg" ""
  615.                        EAITlin '(-33 0) '(-93 0) ""
  616.                 EAITlin '(-63 30)'(-63 -30) ""
  617.               )
  618.             (setq SS1 (EAITSS E1))
  619.           
  620.        );2.COND-Fall      
  621.    );cond          
  622.    
  623.    (command EAITbks EAITbvo)                 
  624.    
  625.    (command EAITspi SS1 "" '(0 0) '(2 0) EAITspn
  626.          EAITspi SS1 "" (list (/ D1 2) 0) (list (/ D1 2) 2) EAITspn
  627.          EAITrei SS1 "" EAITrpo (list (/ D1 2) 0) "2" "" EAITrja
  628.             EAITlay EAITlse "EAITstpg" ""
  629.             EAITlin (list -64.5 (+ A 20)) (list -64.5 (- A 20)) ""
  630.          EAITlin (list -64.5 (+ (- A) 20)) (list -64.5 (- (- A) 20)) ""
  631.    )   
  632.    
  633. ;------------Einfuegen der Abdeckkappen
  634.  
  635.    (command EAITege (strcat EAITpfn "02602s1") (list -116 (- A 40)) "" "" 90
  636.             EAITege (strcat EAITpfn "02602s1") (list (+ D1 116) (+ A 40)) "" "" -90
  637.          EAITege (strcat EAITpfn "02602s1") (list -116 (- (- A) 40)) "" "" 90
  638.          EAITege (strcat EAITpfn "02602s1") (list (+ D1 116) (+ (- A) 40)) "" "" -90
  639.    )
  640.              
  641.    
  642. ;------------Einfuegen der Info-Pkt.
  643.           
  644.    (setq L (abs (rtos L 2 1))
  645.          B (abs (rtos (+ D1 232) 2 1))
  646.    )
  647.  
  648.    (EAITDBL "0035012")    ;Lagereinheit 25z
  649.    (command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
  650.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  651.    )
  652.    (EAITDBL "0035011")    ;Lagereinheit 25e
  653.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
  654.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  655.    )
  656.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  657.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
  658.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  659.    )
  660.    (EAITDBL "0026523")    ;Profil 160x40
  661.    (command EAITege (strcat EAITpfn "EAITinfo") '(31 10) "" "" ""
  662.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos (-(* A 2)80) 2 1) (rtos EAITb1 2 1) EAITnr
  663.    )
  664.    (EAITDBL "0002602")    ;Abdeckkappe 80x40
  665.    (command EAITege (strcat EAITpfn "EAITinfo") (list -118 (- A 34)) "" "" ""
  666.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  667.    )
  668.    (EAITDBL "0002604")    ;Profil 80x40
  669.    (command EAITege (strcat EAITpfn "EAITinfo") (list 35 (- A 34)) "" "" ""
  670.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
  671.    )
  672.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  673.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
  674.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  675.    )
  676.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  677.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
  678.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  679.    )
  680.    (EAITDBL "0035009")    ;Welle 25
  681.    (command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
  682.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  683.    )
  684.  
  685.   (setq P10 nil P11 nil P12 nil P13 nil P14 nil P15 nil P16 nil P17 nil P18 nil P19 nil)
  686.   (command EAITbks EAITbvo )
  687.   (command EAITbks EAITbvo )
  688.   (EAITvarz2)
  689.   (princ)
  690.  
  691.           
  692. );defun D2
  693.  
  694.  
  695.  
  696. (princ)
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710.  
  711.  
  712.  
  713.  
  714.  
  715.  
  716.  
  717.                                                                                                                                                                                             
  718.